#!/usr/bin/perl

use Net::Syslog;

my $head=";".$ARGV[2].";";
my $s=new Net::Syslog	(	
			Facility=>$ARGV[0], 
			Priority=>$ARGV[1],
			SyslogHost=>'log01g.bserv1.local'
			);

while (<STDIN>) {
  	$s->send($head.$_);
}
